GetFillSettings procedure

  DECLARATION:  GetFillSettings(var FillInfo : FillSettingsType)

      PURPOSE:  Returns the current fill pattern and color

         UNIT:  Graph

      REMARKS:  FillSettingsType has been declared in the Graph Unit as
                follows:

                   Type
                      FillSettingsType = Record
                                           Pattern : word;
                                           Color : word;
                                         End;

                The current fill pattern will be returned in the Pattern field
                and the current fillcolor will be returned in the Color field.

 RESTRICTIONS:  Must be in graphics mode.